function create_159_cards(stru_quad_up,stru_quad_down,strubox_rigid)
ftload=fopen('tload.bdf','w');
fdload=fopen('dload.bdf','w');
fchbdyg=fopen('chbdyg.bdf','w');
fprintf(fdload,'%s%8d%8s','DLOAD   ',2,'1.0');
j=1;
for i=1:length(stru_quad_up)
    if j==4
        fprintf(fdload,'\n        ');
        j=0;
    end
    fprintf(ftload,'%s%8d%8d%16s%s\n','TLOAD1  ',stru_quad_up(i)+100000,stru_quad_up(i)+100000,'',' 1');
    fprintf(fdload,'%8s%8d','1.0',stru_quad_up(i)+100000);
    fprintf(fchbdyg,'%s%8d%8s%s','CHBDYG  ',stru_quad_up(i)+600000,'',' AREA4');
    id=find(strubox_rigid(:,1)==stru_quad_up(i));
    fprintf(fchbdyg,'\n        %8d%8d%8d%8d\n',strubox_rigid(id,2)+200000,strubox_rigid(id,6)+200000,strubox_rigid(id,10)+200000,strubox_rigid(id,14)+200000);
    j=j+1;
end
for i=1:length(stru_quad_down)
    if j==4
        fprintf(fdload,'\n        ');
        j=0;
    end
    fprintf(ftload,'%s%8d%8d%16s%s\n','TLOAD1  ',stru_quad_down(i)+200000,stru_quad_down(i)+200000,'',' 1');
    fprintf(fdload,'%8s%8d','1.0',stru_quad_down(i)+200000);
    fprintf(fchbdyg,'%s%8d%8s%s','CHBDYG  ',stru_quad_down(i)+700000,'',' AREA4');
    id=find(strubox_rigid(:,1)==stru_quad_down(i));
    fprintf(fchbdyg,'\n        %8d%8d%8d%8d\n',strubox_rigid(id,2)+400000,strubox_rigid(id,6)+400000,strubox_rigid(id,10)+400000,strubox_rigid(id,14)+400000);
    j=j+1;
end
fclose(ftload);
fclose(fdload);
fclose(fchbdyg);
end